Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/qckcmpct.sit/Quick Compacter 2.0/card_2975.txt

Text File | 1990-02-01 | 54KB | 2,077 lines

-- card: 2975 from stack: in.0
-- bmap block id: 0
-- flags: 4000
-- background id: 2588
-- name: Main Prog
----- HyperTalk script -----
on MouseWithin
  UD  ---custom XCMD useful only in Quick Compacter.
end MouseWithin


-- part 85 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=383 top=32 right=44 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: TitleDone


-- part 80 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=251 top=277 right=290 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: totsavings2


-- part 4 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=2 top=59 right=275 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Title


-- part 15 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=233 top=276 right=293 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: totsavings


-- part 73 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=380 top=16 right=28 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: VERSION#
----- HyperTalk script -----
on mouseDown
  set cursor to watch
  put "This is version"&&cd fld "VERSION#"&&"of Quick Compacter. (Click anywhere to continue.)"
  repeat until the mouse is down
  end repeat
  hide msg
end mousedown


-- part 23 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=2 top=45 right=60 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TitleBar


-- part 25 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=233 top=59 right=275 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: BSaved


-- part 39 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=233 top=45 right=60 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TITLE BAR 2


-- part 41 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=426 top=56 right=78 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Options
----- HyperTalk script -----
on mouseDown
  global totsav
  Get HPopupMenu("Go Home"&return& "Finder,Quit HyperCard,(-,Restart,Shut Down"& return& "Open Stack..."&return& "Transfer..."&return& "(-"& return& "Compact This Stack"&return& "Clear Report Fields"& return& "Preferences",0,76,418)
  set hilite of cd btn id 41 to false
  if it=0 then exit MouseDown
  put it into sel
  if item 1 of sel=1 then
    Domenu "Home"
    exit MouseDown
  end if
  if item 1 of sel=2 then
    if item 2 of sel=4 then
      answer "Do not Restart under Multifinder." with "Restart" or "Cancel"
      if it="Cancel" then exit MouseDown
      DORESTART
    end if
    if item 2 of sel=5 then
      answer "Do not Shut Down under Multifinder." with "Shut Down" or "Cancel"
      if it="Cancel" then exit MouseDown
      DOSHUTDOWN
    end if
    domenu "quit hypercard"
    exit MouseDown
  end if
  if item 1 of sel=3 then
    Domenu "Open Stack..."
    exit MouseDown
  end if
  if item 1 of sel=4 then
    Get FileName("APPL","Transfer to which application?")
    lock screen
    unlock screen
    hide msg
    if it=empty then exit mouseDown
    open it
    exit MouseDown
  end if
  if item 1 of sel=6 then
    send MouseUp to cd btn id 82
    exit MouseDown
  end if
  if item 1 of sel=7 then
    answer "Clear the report fields?" with "Yes" or "Cancel"
    if it="Cancel" then exit mouseDown
    set cursor to watch
    lock screen
    put empty into cd fld "Title"
    put empty into cd fld "BSaved"
    put empty into cd fld "Persaved"
    set the scroll of cd fld id 4 to 0
    set the scroll of cd fld id 25 to 0
    set the scroll of cd fld id 53 to 0
    put 0 into totsav
    put 0 into cd fld "Totsavings"
    put 0 into cd fld "Totsavings2"
    unlock screen
  end if
  if item 1 of sel=8 then Prefs
  send CleanUp to background
end mouseDown

on Prefs
  global PrefsHi
  set cursor to watch
  lock screen
  show cd fld "Prefs"
  show cd btn id 90
  show cd btn id 91
  show cd btn id 92
  show cd btn id 93
  show cd btn id 94
  show cd btn id 96
  show cd btn id 97
  show cd btn id 98
  show cd btn id 99
  show cd btn id 100
  show cd fld id 103
  show cd btn id 104
  show cd fld id 105
  show cd fld id 106
  show cd btn id 107
  show cd btn id 115
  show cd btn id 116
  unlock screen with visual effect wipe right
end Prefs


-- part 42 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=426 top=80 right=102 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseDown
  global shs
  Get HPopupMenu("Program Info"&return&"Help File"&return&"Credits" &return&"Version History"&return&"StartUp Info",0,100,418)
  set hilite of cd btn id 42 to false
  if it=0 then exit MouseDown
  if item 1 of it=1 then put "Program Info" into shs
  if item 1 of it=2 then put "Help File" into shs
  if item 1 of it=3 then put "Credits" into shs
  if item 1 of it=4 then put "Version History" into shs
  if item 1 of it=5 then
    put "StartInfo" into shs
    show cd fld "NOCANDO"
  end if
  lock screen
  show cd fld shs
  put TKdoTEXT(shs) into cd fld shs
  set hilite of cd btn id 37 to true
  show cd btn id 37
  show cd btn id 83
  Unlock screen with visual effect wipe right
end MouseDown


-- part 84 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=365 top=32 right=44 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: %done


-- part 43 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=426 top=32 right=54 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compact
----- HyperTalk script -----
on mouseDown
  global QL,tst,STKP,prefshi,Multcnt
  put "One Stack"&Return&"Multiple Stacks"&return&"Entire Folder"& return & "One Volume"&return & "All Volumes"&return & "Quick List" into menu
  if cd fld "QListform"Γëá",(None installed" then
    put ",Compact entire list,(-"&cd fld "QListform" after menu
  else
    put cd fld "QListform" after menu
  end if
  Get HPopupMenu(menu,0,53,418)
  set hilite of cd btn id 43 to false
  if it=0 then exit MouseDown
  put 0 into tst
  put 0 into Multcnt
  put empty into STKP
  if item 1 of it=1 then ComOneStack
  if item 1 of it=2 then ComMultStack
  if item 1 of it=3 then ComEntFldr
  if item 1 of it=4 then ComEntVol
  if item 1 of it=5 then ComAllVol
  if item 1 of it=6 then
    put item 2 of it into QL
    ComQuickLst
  end if
  hide cd fld "To Cancel"
  put 0 into tst
  if item 7 of prefshi=true then
    lock screen
    choose select tool
    doMenu select all
    doMenu clear picture
    set filled to false
    choose browse tool
    unlock screen
  end if
  put empty into STKP
  if item 8 of prefshi=true then put 0 into cd fld "%done"
  send CleanUp to background
end mouseDown

on ComOneStack
  global CS,prefshi,Multcnt,tst,STKP
  put "S" into CS
  set cursor to watch
  Put FileName("STAK","Attempt to compact which stack? Number 1 of 1.") into STKP
  set cursor to watch
  if STKP is empty then exit ComOneStack
  lock screen
  unlock screen
  show cd fld "To Cancel"
  put "Checking stack: "&TKpathName("Leaf",STKP)
  if item 13 of PrefsHi=true then
    Doit
  else
    if the freeSize of STKP=0 then
      put TKpathName("Leaf",STKP)&&"does not need to be compacted."
    else
      DoIt
    end if
  end if
  if item 7 of prefshi=true and tstΓëá1 then
    set filled to true
    set pattern to 12
    choose rect tool
    drag from 2,32 to 362,43
    choose browse tool
  end if
  if item 8 of prefshi=true and tstΓëá1 then put 100 into cd fld "%done"
  set cursor to watch
  put "Compacted"&&Multcnt&&"of 1 requested. Checked 1 stack."
end ComOneStack

on ComMultStack
  global Numb,CS,tst,prefshi,Multcnt,STKP
  ask "How many files to compact?" with 100
  if it=empty then exit ComMultStack
  repeat with i=1 to the number of chars in it
    if char i of it is not in "1234567890"
    then
    answer "The value must contain only real numbers." with "OK"
    exit ComMultStack
  end if
end repeat
put "MS" into CS
put it into numstks
put 0 into Numb
if item 7 of prefshi=true then
  put round(360/numstks) into stepval
  set filled to true
  set pattern to 12
  put "2,32" into TopLeft
  put "2,43" into BotRight
end if
if item 8 of prefshi=true then put (1/numstks)*100 into per
set cursor to watch
show cd fld "To Cancel"
put 2 into step
repeat until the Shiftkey is down and the mouse is down
  Put FileName("STAK","Attempt to compact which stack? Number"&&Numb&&"of"&&numstks&".") into STKP
  set cursor to watch
  if STKP is empty then exit repeat
  add 1 to Numb
  lock screen
  unlock screen
  put "Checking stack: "&TKpathName("Leaf",STKP)
  if item 13 of PrefsHi=true then
    Doit
  else
    if the freeSize of STKP=0 then
      put TKpathName("Leaf",STKP)&&"does not need to be compacted."
    else
      DoIt
    end if
  end if
  if item 8 of prefshi=true and tstΓëá1 then
    if i=numstks then
      put "362,43" into BotRight
    else
      add stepval to step
      put round(step) into item 1 of BotRight
    end if
    choose rect tool
    drag from TopLeft to BotRight
    set cursor to watch
    put item 1 of Botright into item 1 of TopLeft
  end if
  if item 7 of prefshi=true and tstΓëá1 then put round(per*Numb) into cd fld "%done"
  if tst=1 or Numb=numstks then exit repeat
end repeat
put "Compacted"&&Multcnt&&"of"&&numstks&&"requested. Checked"&&Numb&&"stacks."
end ComMultStack

on ComEntFldr
  global Multcnt,STKP,CS,tst,prefshi
  Put FileName("STAK","Select a stack and all stacks found in that folder will be compacted.") into FLDRPath
  set cursor to watch
  lock screen
  unlock screen
  if FLDRPath=empty then exit ComEntFldr
  put "Scaning folder for stacks."
  put number of chars of FLDRPath into z
  repeat with i=z down to 1
    if char i of FLDRPath is not ":" then
      delete char i of FLDRPath
    else
      exit repeat
    end if
  end repeat
  Put Files(FLDRPath,"STAK") into liststacks
  put the number of lines in liststacks into NumStks
  put " "&NumStks&&"found." after msg
  put 0 into Multcnt
  put "EF" into CS
  put 1 into i
  if item 7 of prefshi=true then
    put round(360/numstks) into stepval
    set filled to true
    set pattern to 12
    put "2,32" into TopLeft
    put "2,43" into BotRight
  end if
  if item 8 of prefshi=true then put (1/numstks)*100 into per
  show cd fld "To Cancel"
  put 2 into step
  repeat until the mouse is down and the shiftkey is down
    put FLDRPath&line i of liststacks into STKP
    put "Checking stack: "&TKpathName("Leaf",STKP)
    if item 13 of PrefsHi=true then
      Doit
    else
      if the freeSize of STKP=0 then
        put TKpathName("Leaf",STKP)&&"does not need to be compacted."
      else
        DoIt
      end if
    end if
    if item 7 of prefshi=true and tstΓëá1 then
      if i=numstks then
        put "362,43" into BotRight
      else
        add stepval to step
        put round(step) into item 1 of BotRight
      end if
      choose rect tool
      drag from TopLeft to BotRight
      set cursor to watch
      put item 1 of Botright into item 1 of TopLeft
    end if
    if item 8 of prefshi=true and tstΓëá1 then put round(per*i) into cd fld "%done"
    if tst=1 or i=numstks then exit repeat else add 1 to i
  end repeat
  put "Compacted"&&Multcnt&&"of"&&Numstks&&"in the folder. Checked"&&i&&"stacks."
end ComEntFldr

on ComEntVol
  global tst,CS,f,STKP,DQC,num,vol,Multcnt,dir,prefshi,Cm
  put empty into f
  set cursor to watch
  put 0 into num
  Ask "Volume to compact:" with DQC
  put it into vol
  set cursor to watch
  if it is not empty then
    put "Scaning '"&vol&"' for stacks. 0 found."
    put (the number of words in msg)-1 into cm
    List it
  else
    exit ComEntVol
  end if
  if f is empty then
    if item 1 of prefshi=true then beep
    put "Either no volume by that name or no stacks on that volume."
    answer "Sorry, no stacks found on that volume." with "OK"
    set cursor to watch
    hide msg
    exit ComEntVol
  end if
  put 0 into Multcnt
  put the number of lines in f into NumStks
  put "EV" into CS
  put 1 into i
  if item 7 of prefshi=true then
    put round(360/numstks) into stepval
    set filled to true
    set pattern to 12
    put "2,32" into TopLeft
    put "2,43" into BotRight
  end if
  if item 8 of prefshi=true then put (1/numstks)*100 into per
  show cd fld "To Cancel"
  put 2 into step
  repeat until the mouse is down and the shiftkey is down
    put line i of f into STKP
    put "Checking stack: "&TKpathName("Leaf",STKP)
    if item 13 of PrefsHi=true then
      Doit
    else
      if the freeSize of STKP=0 then
        put TKpathName("Leaf",STKP)&&"does not need to be compacted."
      else
        DoIt
      end if
    end if
    if item 7 of prefshi=true and tstΓëá1 then
      if i=numstks then
        put "362,43" into BotRight
      else
        add stepval to step
        put round(step) into item 1 of BotRight
      end if
      choose rect tool
      set cursor to none
      drag from TopLeft to BotRight
      set cursor to watch
      put item 1 of Botright into item 1 of TopLeft
    end if
    if item 8 of prefshi=true and tstΓëá1 then put round(per*i) into cd fld "%done"
    if tst=1 or i=numstks then exit repeat
    add 1 to i
  end repeat
  put "Compacted"&&Multcnt&&"of"&&NumSTKs&&"stacks. Checked"&&i&&"stacks."
end ComEntVol
On List dir
  global f,num,vol,Cm
  put files(dir,"STAK",0) into temp
  if temp is not empty then
    put the number of lines in temp into a
    repeat with i=1 to a
      put dir&":"&line i of temp&return after f
      add 1 to word cm of msg
    end repeat
  end if
  Put files(dir,"STAK",2) into M
  if M is not empty then
    put the number of lines in M into b
    repeat with i=1 to b
      List dir&":"&line i of m
    end repeat
  end if
end list

on ComAllVol
  global tst,CS,f,STKP,DQC,num,vol,Multcnt,dir,prefshi,Cm
  put empty into f
  set cursor to watch
  put 0 into num
  set cursor to watch
  put "Scanning all available volumes."
  put Enumerate("STAK","WILD") into f
  if f is empty then
    if item 1 of prefshi=true then beep
    answer "Sorry, no stacks found on the mounted volumes." with "OK"
    exit ComAllVol
  end if
  put the number of lines in f into numstks
  put "Scanned the volumes. Sorting the data...please wait."
  put " ,"&TKpathName("vol",line 1 of f) into vols
  repeat with i=2 to numstks
    if TKpathName("vol",line i of f)Γëá last item in vols then put ","&TKpathName("vol",line i of f) after vols
  end repeat
  put (the number of items in vols)-1 into numvols
  put "Found"&&numstks&&"stacks on"&&numvols&&"volume(s)."
  wait 60 ticks
  put 0 into Multcnt
  put the number of lines in f into NumStks
  put "AV" into CS
  put 1 into i
  if item 7 of prefshi=true then
    put (360/numstks) into stepval
    set filled to true
    set pattern to 12
    put "2,32" into TopLeft
    put "2,43" into BotRight
  end if
  if item 8 of prefshi=true then put (1/numstks)*100 into per
  put 2 into step
  show cd fld "To Cancel"
  repeat until the mouse is down and the shiftkey is down
    put line i of f into STKP
    put "Checking stack: "&TKpathName("Leaf",STKP)
    if item 13 of PrefsHi=true then
      Doit
    else
      if the freeSize of STKP=0 then
        put TKpathName("Leaf",STKP)&&"does not need to be compacted."
      else
        DoIt
      end if
    end if
    if item 7 of prefshi=true and tstΓëá1 then
      if i=numstks then
        put "362,43" into BotRight
      else
        add stepval to step
        put round(step) into item 1 of BotRight
      end if
      choose rect tool
      drag from TopLeft to BotRight
      set cursor to watch
      put item 1 of Botright into item 1 of TopLeft
    end if
    if item 8 of prefshi=true and tstΓëá1 then
      put round(per*i) into cd fld "%done"
    end if
    if tst=1 or i=numstks then exit repeat
    add 1 to i
  end repeat
  put "Compacted"&&Multcnt&&"of"&&NumSTKs&&"stacks. Checked"&&i&&"stacks."
end ComAllVol

on ComQuickLst
  global QL,STKP,CS,tst,Multcnt,prefshi,itemQL,itemQL2,QCErr
  put 1 into itemQL
  set cursor to watch
  show cd fld "To Cancel"
  if QL=2 then
    put the number of lines in cd fld "QuickList" into numstks
    if numstks=0 then
      if item 1 of prefshi=true then beep
      put "There is nothing to compact!"
      exit ComQuickLst
    end if
    put "Q2" into CS
    put 1 into i
    if item 7 of prefshi=true then
      put round(360/numstks) into stepval
      set filled to true
      set pattern to 12
      put "2,32" into TopLeft
      put "2,43" into BotRight
    end if
    if item 8 of prefshi=true then put (1/numstks)*100 into per
    put 2 into step
    repeat until the mouse is down and the shiftkey is down
      put line i of cd fld "QuickList" into STKP
      put empty into QCErr
      QcCheck
      add 1 to itemQL
      put 0 into itemQL2
      if QCErrΓëá"error" then
        put "Checking stack: "&TKpathName("Leaf",STKP)
        if item 13 of PrefsHi=true then
          Doit
        else
          if the freeSize of STKP=0 then
            put TKpathName("Leaf",STKP)&&"does not need to be compacted."
          else
            DoIt
          end if
        end if
      end if
      if itemQL2=1 then
        subtract 1 from i
        subtract 1 from itemQL
      end if
      if item 7 of prefshi=true and tstΓëá1 then
        if i=numstks then
          put "362,43" into BotRight
        else
          add stepval to step
          put round(step) into item 1 of BotRight
        end if
        choose rect tool
        drag from TopLeft to BotRight
        set cursor to watch
        put item 1 of Botright into item 1 of TopLeft
      end if
      if item 8 of prefshi=true and tstΓëá1 then put round(per*i) into cd fld "%done"
      if tst=1 or i=numstks then exit repeat
      add 1 to i
    end repeat
    put "Compacted"&&Multcnt&&"out of"&&numstks&&"in Quick List. Checked"&&i&&"stacks."
  else
    put "Q1" into CS
    put item 1 of line(QL-3) of cd fld "QuickList" into STKP
    put empty into OSErr
    QcCheck
    set cursor to watch
    add (QL-3) to itemQL
    if OSErrΓëá"error" then
      put "Checking stack: "&TKpathName("Leaf",STKP)
      if item 13 of PrefsHi=true then
        Doit
      else
        if the freeSize of STKP=0 then
          put TKpathName("Leaf",STKP)&&"does not need to be compacted."
        else
          DoIt
        end if
      end if
    end if
    if item 7 of prefshi=true then
      set filled to true
      set pattern to 12
      choose rect tool
      drag from 2,32 to 362,43
      choose browse tool
    end if
    if item 8 of prefshi=true then put 100 into cd fld "%done"
    put "Compacted"&&Multcnt&&"of 1 requested. Checked 1 stack."
  end if
  put empty into QL
end ComQuickLst



-- part 50 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=426 top=104 right=126 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quick List
----- HyperTalk script -----
on mouseDown
  global RSTK
  put "Add to list"&",Add single stack,Add multiple stacks,Add entire folder" after menu
  put return&"Delete from list" after menu
  if cd fld "QListform"Γëá",(None installed" then put ",Delete entire list,-(" after menu
  put cd fld "QListform"&return &"-("&return &"Save Quick List" &return &"Load Quick List" after menu
  Get HPopupMenu(menu,0,125,418)
  if it=0 then exit MouseDown
  set hilite of cd btn id 50 to false
  if item 1 of it=1 then
    if item 2 of it=2 then InstallSingle
    if item 2 of it=3 then InstallMult
    if item 2 of it=4 then InstallEnt
  end if
  if item 1 of it=2 then
    put item 2 of it into RSTK
    RemoveSTK
  end if
  if item 1 of it=4 then SaveQL
  if item 1 of it=5 then LoadQL
  send CleanUp to background
end MouseDown

on InstallSingle
  Get FileName("STAK","Select the stack you wish to add to the Quick ListΓäó.")
  lock screen
  unlock screen
  set cursor to watch
  if it is empty then exit InstallSingle
  put InstallSTK(it) into temp
end InstallSingle

on InstallMult
  ask "Add how many to the Quick List?" with 100
  put it into numb
  if numb=empty then exit InstallMult
  repeat with i=1 to the number of chars in it
    if char i of numb is not in "1234567890"
    then
    answer "The value must contain only real numbers." with "OK"
    exit InstallMult
  end if
end repeat
repeat with i=1 to numb
  Get FileName("STAK","Add which stack: Number"&&i&&"out of"&&numb&".")
  lock screen
  unlock screen
  set cursor to watch
  if it is empty then exit InstallMult
  put InstallSTK(it) into temp
  if temp="Error" then
    answer "Continue adding stacks?" with "Cancel" or "Continue"
    if it="Cancel" then exit repeat
  end if
end repeat
end InstallMult

on InstallEnt
  Put FileName("STAK","Select a stack and all stacks in that folder will be added.") into FLDRPath
  lock screen
  unlock screen
  set cursor to watch
  if FLDRPath=empty then exit InstallEnt
  put number of chars of FLDRPath into z
  repeat with i=z down to 1
    if char i of FLDRPath is not ":" then delete char i of FLDRPath else exit repeat
  end repeat
  Put Files(FLDRPath,"STAK") into liststacks
  put liststacks into cd fld "Hello!"
  put the number of lines in cd fld "Hello!" into NumStks
  put empty into it
  repeat with i=1 to NumStks
    put InstallSTK(FLDRPath&(line i of cd fld "Hello!")) into temp
    if temp="Error" then answer "Continue adding stacks?" with "Cancel" or "Continue"
    if it="Cancel" then exit repeat
  end repeat
end InstallEnt

function InstallSTK STKadd
put TKpathName("Leaf",STKadd) into x
put "Installing:"&&x&"."
if cd fld "QuickList" contains STKadd then
  put x&&"is already in the list."
  return "Error"
end if
put the number of lines in cd fld "QuickList" into z
put STKadd into line z+1 of cd fld "QuickList"
repeat with i=1 to the number of chars in x
  if char i of x="Γäó" then
    delete char i of x
  else
    if char i of x="©" then
      delete char i of x
    else
      if char i of x="®" then
        delete char i of x
      else
        if char i of x="(" then
          delete char i of x
        else
          if char i of x=")" then
            delete char i of x
          else
            if char i of x="ß" then
              delete char i of x
            end if
          end if
        end if
      end if
    end if
  end if
end repeat
if cd fld "QListform"=",(None Installed" then
  put ","&x into cd fld "QListform"
else
  put ","&x after cd fld "QListform"
end if
put "Installed:"&&x&"."
end InstallSTK

on RemoveSTK
  global RSTK
  if RSTK=2 then
    answer "Clear the entire Quick List?" with "Yes" or "Cancel"
    if it="Cancel" then exit RemoveSTK
    set cursor to watch
    put empty into cd fld "QuickList"
    put ",(None Installed" into cd fld "QListform"
    put "All stacks removed."
    exit RemoveSTK
  end if
  subtract 3 from RSTK
  put line RSTK of cd fld "QuickList" into temp
  put "Remove stack:"&&TKpathName("Leaf",temp)&"?"
  answer "Remove the stack?" with "Remove" or "Cancel"
  if it="Cancel" then exit RemoveSTK
  delete line RSTK of cd fld "QuickList"
  delete item RSTK+1 of cd fld "QListform"
  if cd fld "QListform" is empty then put ",(None Installed" into cd fld "QListform"
  put "Stack removed."
end RemoveSTK

on SaveQL
  set cursor to watch
  if line 1 of cd fld "QListform"=",(None Installed" then
    answer "Sorry, there is no Quick List to save." with "OK"
    exit SaveQL
  end if
  put NewFileName("Save Quick List as:","Quick List.QC") into lfn
  lock screen
  unlock screen
  if lfn is empty then exit SaveQL
  put "Opening new Quick List TEXT file."
  open file lfn
  write "Quick Compacter version 2.0,quicklist"&return to file lfn
  put "Saving the Quick List to TEXT file."
  repeat with i=1 to the number of lines in cd fld "QuickList"
    write line i of cd fld "QuickList"&return to file lfn
  end repeat
  put "Closing new Quick List TEXT file."
  close file lfn
  put "Finished saving Quick List TEXT file."
end SaveQL

on LoadQL
  set cursor to watch
  put FileName("TEXT","Select a saved QL.txt file to add to the Quick List.") into lfn
  hide msg
  lock screen
  unlock screen
  set cursor to watch
  if lfn is empty then exit LoadQL
  put "Opening the Quick List TEXT file."
  open file lfn
  read from file lfn until return
  put it into temp
  put item 2 of temp into temp2
  delete last char of temp2
  if temp2Γëá"quicklist" then
    put "Either this is not a Quick List text file or it is corrupted."
    beep
    beep
    answer "There is a problem with this file." with "OK"
    close file lfn
    exit LoadQL
  end if
  if cd fld "QuickList" is not empty then answer "Replace the QL or append the file to the QL?" with "Replace" or "Append" or "Cancel"
  if it="Cancel" then
    close file lfn
    exit LoadQL
  end if
  if it="Replace" then
    put ",(None Installed" into cd fld "QListForm"
    put empty into cd fld "QuickList"
  end if
  put true into point
  put "Reading from Quick List TEXT file."
  repeat until point is false
    read from file lfn until return
    delete last char of it
    if it=empty then exit repeat
    put InstallSTK(it) into temp
    if temp="Error" then
      answer "Continue adding stacks?" with "Cancel" or "Continue"
      if it="Cancel" then exit repeat
    end if
  end repeat
  put "Closing Quick List TEXT file."
  close file lfn
  put "Finished loading Quick List TEXT file."
end LoadQL


-- part 53 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=362 top=59 right=275 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: PERSAVED


-- part 54 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=362 top=45 right=60 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: % SAVED


-- part 51 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=2 top=33 right=244 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: QuickList


-- part 102 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=426 top=152 right=225 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: To Cancel


-- part 66 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=3 top=15 right=28 bottom=67
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Date
----- HyperTalk script -----
on MouseUp
  set cursor to watch
  repeat until the mouse is down
    put the date into cd fld "Date"
    put "Today is:"&&the long date&". (Click anywhere to continue)"
  end repeat
  hide msg
end MouseUp


-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=406 top=60 right=275 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Not here
----- HyperTalk script -----
on mouseDown
  global initScroll
  put the rect of me into myRect
  MultiScroll myRect,"4,card","25,card","53,card"
  put the scroll of card field id 4 into initScroll
end mouseDown
on mouseWithin
  MultiScroll Init
end mouseWithin
on mouseLeave
  MultiScroll UnInit
end mouseLeave


-- part 49 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=2 top=2 right=33 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Hello!


-- part 55 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=2 top=276 right=293 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 58 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=365 top=310 right=323 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Name
----- HyperTalk script -----
on MouseDown
  set the hilite of cd btn id 82 to true
  set the hilite of cd btn id 82 to false
  send MouseUp to cd btn id 82
end MouseDown


-- part 59 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=368 top=296 right=311 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Stackname
----- HyperTalk script -----
on MouseDown
  set the hilite of cd btn id 82 to true
  set the hilite of cd btn id 82 to false
  send MouseUp to cd btn id 82
end MouseDown


-- part 72 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=426 top=128 right=150 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Tools
----- HyperTalk script -----
on mouseDown
  Get HPopupMenu("Rename stack"&return&"Delete stack"&return& "Copy stack"&return&"New folder",0,150,418)
  set hilite of cd btn id 50 to false
  if it=0 then exit MouseDown
  if item 1 of it=1 then Rename
  if item 1 of it=2 then Delete
  if item 1 of it=3 then Copy
  if item 1 of it=4 then NewFolder
  send CleanUp to background
end MouseDown
on Copy
  global nmQC
  put FileName("STAK","Select a stack to copy.") into it
  lock screen
  set lockmessages to true
  go to it
  put "Copying stack."
  domenu "Save a copy..."
  set cursor to watch
  go to stack nmQC
end Copy
on Delete
  global nmQC
  put filename("STAK","Please select a stack to delete.") into deletethis
  if deletethis is empty then exit Delete
  if nmQC contains deletethis then
    put "Sorry, you can not delete the Quick CompacterΓäó stack."
    wait 60 ticks
    exit Delete
  end if
  hide msg
  answer "Are you sure you want to delete this stack?" with "Delete" or "Cancel"
  if it is "Cancel" then exit Delete
  set cursor to watch
  put deletefile(deletethis) into returnedthis
  if returnedthis = 0 then
    answer "The stack was deleted."
  else
    if returnedthis<0 then OsErr returnedthis else answer "There was an error"
  end if
end Delete
on Rename
  global nmQC
  put filename("STAK","Please select a stack to rename.") into rethis
  set cursor to watch
  if rethis is empty then exit Rename
  if nmQC contains rethis then
    put "Sorry, you can not rename the Quick CompacterΓäó stack."
    wait 60 ticks
    exit Rename
  end if
  hide msg
  put TKpathName("Leaf",rethis) into Sname
  ask "What do you want to name this stack?" with Sname
  if it is empty then exit Rename
  if it=Sname then
    answer "You must change the name of the stack." with "OK"
    exit Rename
  end if
  set cursor to watch
  put RenameFile(rethis,it) into returnedthis
  if returnedthis = 0 then
    answer "The stack was renamed."
  else
    if returnedthis < 0 then OsErr returnedthis else answer "Sorry, there was an error."
  end if
end Rename
on NewFolder
  DirCreate "Empty Folder","Folder name:"
end NewFolder



-- part 56 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=422 top=310 right=323 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Wasted
----- HyperTalk script -----
on MouseDown
  set the hilite of cd btn id 82 to true
  set the hilite of cd btn id 82 to false
  send MouseUp to cd btn id 82
end MouseDown


-- part 60 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=423 top=296 right=311 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: STSize
----- HyperTalk script -----
on MouseDown
  set the hilite of cd btn id 82 to true
  set the hilite of cd btn id 82 to false
  send MouseUp to cd btn id 82
end MouseDown


-- part 38 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=2 top=31 right=270 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Program Info


-- part 36 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=2 top=31 right=270 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Help File


-- part 61 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=2 top=31 right=270 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Credits


-- part 63 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=2 top=31 right=270 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Version History


-- part 65 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=448 top=15 right=28 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Time
----- HyperTalk script -----
on MouseUp
  set cursor to watch
  put "The current time is:"&& the long time&" (Click to continue)."
  repeat until the mouse is Down
    put the time into cd fld "Time"
    put word 1 of the long time into word 5 of msg
    put word 2 of the long time into word 6 of msg
  end repeat
  hide msg
end MouseUp


-- part 74 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=2 top=243 right=274 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: QListform


-- part 82 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=367 top=322 right=337 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compact This Stack
----- HyperTalk script -----
on mouseUp
  global prefshi
  put empty into cd fld "Hello!"
  put the freesize of this stack into a
  if a>0 then
    put the number of chars of a into c
    put a into Cb
    if c>3 then put char c-3 of Cb&"," into char c-3 of Cb
    put "Attempting to compact"&&Cb&&"bytes in Quick CompacterΓäó."
    domenu "Compact Stack"
    send CleanUp to background
  else
    put "Not necessary to compact Quick CompacterΓäó at this time."
    wait 60 ticks
    hide msg
  end if
  set hilite of me to false
end mouseUp



-- part 88 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=2 top=32 right=294 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: StartInfo
----- HyperTalk script -----
on MouseDown
  if the shiftKey is down
  then
  set locktext of me to false
end if
end MouseDown
on MouseWithin
  if the commandkey is down and the optionkey is down then
    set locktext of me to true
  end if
end MouseWithin


-- part 37 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=2 top=270 right=294 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: >>>CLICK HERE TO CONTINUE<<<
----- HyperTalk script -----
on mouseDown
  global shs
  set lockscreen to true
  if shsΓëá"StartInfo" then
    set scroll of cd fld shs to 0
  else
    hide cd fld "NOCANDO"
  end if
  set locktext of cd fld shs to true
  hide cd fld shs
  put empty into cd fld shs
  hide cd btn id 37
  hide cd btn id 83
  unlock screen with visual effect wipe left fast
  send CleanUp to background
end mouseDown


-- part 83 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=367 top=295 right=338 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: More Help Files
----- HyperTalk script -----
on mouseDown
  global shs
  put "Program Info"&Return&"Help File"&Return&"Credits" &Return&"Version History"&return&"StartUp Info" after menu
  Get HPopupMenu(menu,0,215,385)
  set cursor to watch
  set hilite of cd btn id 83 to false
  if it=0 then exit MouseDown
  if item 1 of it=1 then put "Program Info" into a
  if item 1 of it=2 then put "Help File" into a
  if item 1 of it=3 then put "Credits" into a
  if item 1 of it=4 then put "Version History" into a
  if item 1 of it=5 then put "StartInfo" into a
  if a=shs then exit MouseDown
  set lockscreen to true
  hide cd fld shs
  set locktext of cd fld shs to true
  if shsΓëá"StartInfo" then
    set scroll of cd fld shs to 0
  else
    hide cd fld "NOCANDO"
  end if
  unlock screen with visual effect wipe left
  lock screen
  put empty into cd fld shs
  put a into shs
  if shs="StartInfo" then show cd fld "NOCANDO"
  show cd fld shs
  put TKdoTEXT(shs) into cd fld shs
  set hilite of cd btn id 37 to true
  Unlock screen with visual effect wipe right
end MouseDown


-- part 89 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=2 top=32 right=240 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Prefs
----- HyperTalk script -----
on mousedown
  if the shiftkey is down then set the locktext of me to false
end Mousedown
on mousewithin
  if the optionkey is down then set the locktext of me to true
end mousewithin


-- part 90 (button)
-- low flags: 80
-- high flags: C005
-- rect: left=4 top=70 right=86 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Beep when target stack can't be opened to compact
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then
    set hilite of me to true
    ask "How many beeps?" with 3
    if it > 100 then
      answer "You can not select that many." with "OK"
      put 0 into it
      set hilite of me to false
    end if
    if it is empty then put 0 into it
    put it into word 2 of cd fld "Times"
  else
    set the hilite of me to false
    put 0 into word 2 of cd fld "Times"
  end if
end mouseUp



-- part 91 (button)
-- low flags: 80
-- high flags: C005
-- rect: left=4 top=121 right=137 bottom=341
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attempt to compact Quick Compacter¬ on close
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then
    set hilite of me to true
  else
    put "Quick Compacter usually creates a large amount of Freespace."
    answer "Are you sure you wish to disable this option?" with "Disable" or "Enable"
    if it="Disable" then set the hilite of me to false
    hide msg
  end if
end mouseUp



-- part 92 (button)
-- low flags: 80
-- high flags: C005
-- rect: left=4 top=138 right=154 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Display StartUp Info when Quick Compacter¬ is opened
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then set hilite of me to true else set the hilite of me to false
end mouseUp



-- part 93 (button)
-- low flags: 80
-- high flags: C005
-- rect: left=4 top=87 right=103 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Beep when target stack is compacted
----- HyperTalk script -----
on MouseUp
  if the hilite of me is false then
    set hilite of me to true
    ask "How many beeps?" with 3
    if it > 100 then
      answer "You can not select that many." with "OK"
      put 0 into it
      set hilite of me to false
    end if
    if it is empty then put 0 into it
    put it into word 2 of cd fld "Times2"
  else
    set the hilite of me to false
    put 0 into word 2 of cd fld "Times2"
  end if
end MouseUp


-- part 94 (button)
-- low flags: 80
-- high flags: C005
-- rect: left=4 top=104 right=120 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show target stack during compaction
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then set hilite of me to true else set the hilite of me to false
end mouseUp



-- part 96 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=400 top=191 right=214 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  global PrefsHi
  lock screen
  set the hilite of cd btn id 90 to item 1 of PrefsHi
  set the hilite of cd btn id 91 to item 2 of PrefsHi
  set the hilite of cd btn id 92 to item 3 of PrefsHi
  set the hilite of cd btn id 93 to item 4 of PrefsHi
  set the hilite of cd btn id 94 to item 5 of PrefsHi
  set the hilite of cd btn id 98 to item 6 of PrefsHi
  set the hilite of cd btn id 99 to item 7 of PrefsHi
  set the hilite of cd btn id 100 to item 8 of PrefsHi
  set the hilite of cd btn id 104 to item 9 of PrefsHi
  set the hilite of cd btn id 115 to item 13 of PrefsHi
  put item 10 of prefshi into word 2 of cd fld id 105
  put item 11 of prefshi into word 2 of cd fld id 105
  set the hilite of cd btn id 107 to item 12 of PrefsHi
  hide cd btn id 90
  hide cd btn id 93
  hide cd btn id 94
  hide cd btn id 91
  hide cd btn id 92
  hide cd btn id 96
  hide cd btn id 97
  hide cd btn id 98
  hide cd btn id 99
  hide cd btn id 100
  hide cd fld id 103
  hide cd btn id 104
  hide cd fld id 105
  hide cd fld id 106
  hide cd btn id 107
  hide cd btn id 115
  hide cd btn id 116
  hide cd fld "Prefs"
  unlock screen with visual effect wipe left
end mouseUp



-- part 97 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=312 top=191 right=214 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  send UpdatePrefs to background
  lock screen
  hide cd btn id 90
  hide cd btn id 93
  hide cd btn id 94
  hide cd btn id 91
  hide cd btn id 92
  hide cd btn id 96
  hide cd btn id 97
  hide cd btn id 98
  hide cd btn id 99
  hide cd btn id 100
  hide cd fld id 103
  hide cd btn id 104
  hide cd fld id 105
  hide cd fld id 106
  hide cd btn id 107
  hide cd btn id 115
  hide cd btn id 116
  hide cd fld "Prefs"
  unlock screen with visual effect wipe left
  send cleanup to background
end mouseUp



-- part 98 (button)
-- low flags: 80
-- high flags: C005
-- rect: left=4 top=206 right=222 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Display time and date
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then set hilite of me to true else set the hilite of me to false
  if the hilite of me=true then
    put the time into cd fld "Time"
    put the date into cd fld "Date"
    show cd fld "Time"
    show cd fld "Date"
  else
    hide cd fld "Time"
    hide cd fld "Date"
    put empty into cd fld "Time"
    put empty into cd fld "Date"
  end if
end mouseUp



-- part 99 (button)
-- low flags: 80
-- high flags: C005
-- rect: left=4 top=172 right=188 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Chart progress on status bar
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then set hilite of me to true else set the hilite of me to false
end mouseUp



-- part 100 (button)
-- low flags: 80
-- high flags: C005
-- rect: left=4 top=189 right=205 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Display percent done
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then set hilite of me to true else set the hilite of me to false
end mouseUp



-- part 103 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=2 top=240 right=339 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: PREFS TIPS


-- part 104 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=4 top=223 right=239 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Don't hide menu bar
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then
    set hilite of me to true
    show menubar
  else
    set the hilite of me to false
    hide menubar
  end if
end mouseUp



-- part 105 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=367 top=69 right=85 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Times
----- HyperTalk script -----
on MouseUp
  send mouseUp to cd btn id 90
end MouseUp


-- part 106 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=272 top=86 right=102 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Times2
----- HyperTalk script -----
on MouseUp
  send mouseUp to cd btn id 93
end MouseUp


-- part 107 (button)
-- low flags: 80
-- high flags: C005
-- rect: left=4 top=53 right=69 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Report when target stack can't be opened to compact
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then set hilite of me to true else set the hilite of me to false
end mouseUp



-- part 114 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=426 top=32 right=149 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NOCANDO
----- HyperTalk script -----
on MouseDown
  put "Select '>>>Click Here to Continue<<<' to use these menus."
  answer "Sorry, these menus are disabled now." with "Ok"
  hide msg
end MouseDown


-- part 115 (button)
-- low flags: 80
-- high flags: C005
-- rect: left=4 top=155 right=171 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compact the target stack regardless of freespace
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then set hilite of me to true else set the hilite of me to false
end mouseUp




-- part 116 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=283 top=215 right=238 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Configure for fastest compaction
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  set the hilite of cd btn id 107 to false
  set the hilite of cd btn id 90 to false
  put 0 into word 2 of cd fld "Times"
  set the hilite of cd btn id 93 to false
  put 0 into word 2 of cd fld "Times2"
  set the hilite of cd btn id 94 to false
  set the hilite of cd btn id 115 to false
  set the hilite of cd btn id 99 to false
  set the hilite of cd btn id 100 to false
  answer "Set monitor to black and white, if possible." with "OK"
  choose browse tool
end mouseUp



-- part contents for card part 23
----- text -----
COMPACTED STACKS

-- part contents for card part 15
----- text -----
0

-- part contents for card part 39
----- text -----
BYTES COMPACTED

-- part contents for card part 54
----- text -----
% SAVED

-- part contents for card part 55
----- text -----
Total Bytes Compacted

-- part contents for card part 58
----- text -----
FreeSpace:

-- part contents for card part 59
----- text -----
Q.C. size :

-- part contents for card part 73
----- text -----
2.0

-- part contents for card part 80
----- text -----
0

-- part contents for card part 85
----- text -----
% done

-- part contents for card part 84
----- text -----
0

-- part contents for card part 89
----- text -----
Quick CompacterΓäó Preferences
***************************************************************
















-- part contents for card part 102
----- text -----
To cancel hold the shift key and the mouse button down. Then wait for "Compcted x of x" message.

-- part contents for card part 103
----- text -----
Preferences Help
************************************************************************
A check-mark in the box to the left of the preference means that option is selected. For the fastest compacting process click on the 'Configure for fastest compaction' button. Also,turn the color off on your monitor. Doing this will remove some of the graphic displays but the overall speed of Quick CompacterΓäó will be much faster. Use the 'Compact the target stack regardless of freespace' option to optimize your older stacks when a new version of HyperCard is released (this is recommended by Apple Computer). Clicking the 'Cancel' button will not save your changes. Clicking 'OK' will save the changes. Both will return you to the main card.


-- part contents for card part 105
----- text -----
(beep 3 times)

-- part contents for card part 106
----- text -----
(beep 3 times)

-- part contents for background part 9
----- text -----
Copyright © 1989,1990. Mark Richard Elpers. All Rights Are Reserved.
This stack may not be distributed for profit without the written consent of the author. BBS's and Macintosh User Groups may distribute this stack freely.

-- part contents for card part 56
----- text -----
Γëê 0

-- part contents for card part 60
----- text -----
119,495

-- part contents for card part 74
----- text -----
,(None Installed

-- part contents for card part 65
----- text -----
12:40 PM

-- part contents for card part 66
----- text -----
2/1/90